home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-09 / floppies.zip / FLOPPY.ZIP / READFLOP.SC < prev    next >
Text File  |  1992-03-15  |  5KB  |  126 lines
  1. ;----------------------READFLOP.SC
  2. ;------------SET UP BACK UP OPTION
  3. ;-------------------SET UP MENU LOOP
  4. CHOICE = " "
  5. WHILE CHOICE <> "EXIT"
  6.       ;----------------SHOW OPTION MENU.
  7.       SHOWMENU
  8.           "DRIVE A:" : "READ FILES FROM FLOPPY DISK DRIVE A:",
  9.           "DRIVE B:" : "READ FILES FROM FLOPPY DISK DRIVE B:",
  10.           "EXIT" : "RETURN TO MAIN MENU "
  11.       TO CHOICE
  12.       ;------------------PLAY SCRIPT OF CHOICE.
  13.       SWITCH
  14.          CASE CHOICE = "DRIVE A:" :
  15.                        CLEARALL
  16.                        CLEAR
  17.                        STYLE ATTRIBUTE 30
  18.                        @ 10,4 ?? "ENTER INDEX NUMBER FOR NEW FLOPPY : "
  19.                        ACCEPT "A5" TO I
  20.                        @ 12,4 ?? "ENTER DESCRIPTION OF DISK : "
  21.                        ACCEPT "A45" TO D
  22.                        @ 14,4 ?? "ENTER BOX NUMBER WHERE DISK IS STORED : "
  23.                        ACCEPT "A10" TO B
  24.                        @ 16,4 ?? "ENTER CATEGORY OF DISK : "
  25.                        ACCEPT "A45" TO C
  26.                        @ 18,4 ?? "ENTER YES IF DISK IS SHAREWARE OR NO IF IT'S NOT: "
  27.                        ACCEPT "A10" TO S
  28.  
  29.  
  30.  
  31.                        STYLE ATTRIBUTE 142
  32.                        CLEAR
  33.                        @ 12,12
  34.                        ?? "INSERT DISK TO READ IN DRIVE A: "
  35.                        SLEEP 5000
  36.                        CLEARALL
  37.                        CLEAR
  38.                        IF NOT DRIVESTATUS("A") THEN
  39.                         CLEAR
  40.                         @ 12,12 ?? "YOUR FLOPPY DRIVE A: IS NOT READY !!"
  41.                         SLEEP 3000
  42.                         PLAY "READFLOP"
  43.                         ELSE
  44.                             Menu {Tools} {Info} {Inventory} {Files} {A:\*.*}
  45.                             Menu {Modify}{Restructure} {List} Ins Right Menu
  46.                             {Borrow} {Floppies} End
  47.                             Del Del Del Do_It!
  48.                             EDIT "LIST" END
  49.                             LAST = RECNO()  HOME
  50.                             ALL = 0
  51.                             WHILE ALL < LAST
  52.                             [DISK #]= I
  53.                             [DISK DESCRIPTION] = D
  54.                             [LOC]=B
  55.                             [CATEGORY] = C
  56.                             [S/W] = S
  57.                             DOWN
  58.                             ALL = ALL+1
  59.                             ENDWHILE
  60.                             DO_IT!
  61.                             Menu {Tools} {More} {Add} {List}
  62.                             {Floppies}  FormKey
  63.  
  64.                         ENDIF
  65.  
  66.          CASE CHOICE = "DRIVE B:" :
  67.  
  68.                        CLEARALL
  69.                        CLEAR
  70.                        STYLE ATTRIBUTE 30
  71.                        @ 10,4 ?? "ENTER INDEX NUMBER FOR NEW FLOPPY : "
  72.                        ACCEPT "A5" TO I
  73.                        @ 12,4 ?? "ENTER DESCRIPTION OF DISK : "
  74.                        ACCEPT "A45" TO D
  75.                        @ 14,4 ?? "ENTER BOX NUMBER WHERE DISK IS STORED : "
  76.                        ACCEPT "A10" TO B
  77.                        @ 16,4 ?? "ENTER CATEGORY OF DISK : "
  78.                        ACCEPT "A45" TO C
  79.                        @ 18,4 ?? "ENTER YES IF DISK IS SHAREWARE OR NO IF IT'S NOT: "
  80.                        ACCEPT "A10" TO S
  81.  
  82.  
  83.  
  84.                         STYLE ATTRIBUTE 142
  85.                         CLEAR
  86.                         @ 12,12
  87.                         ?? "INSERT DISK TO READ IN DRIVE B "
  88.                         SLEEP 5000
  89.                         CLEARALL
  90.                         CLEAR
  91.                         IF NOT DRIVESTATUS("B") THEN
  92.                         CLEAR
  93.                         @12,12 ?? "YOUR DRIVE B: IS NOT READY !!"
  94.                         SLEEP 3000
  95.                         PLAY "READFLOP"
  96.                         ELSE
  97.                   Menu {Tools} {Info} {Inventory} {Files} {B:\*.*} Menu {Modify}
  98.                   {Restructure} {List} Ins Right Menu {Borrow} {Floppies} End
  99.                   Del Del Del Do_It!
  100.                             EDIT "LIST" END
  101.                             LAST = RECNO()  HOME
  102.                             ALL = 0
  103.                             WHILE ALL < LAST
  104.                             [DISK #]= I
  105.                             [DISK DESCRIPTION] = D
  106.                             [LOC]=B
  107.                             [CATEGORY] = C
  108.                             [S/W] = S
  109.                             DOWN
  110.                             ALL = ALL+1
  111.                             ENDWHILE
  112.                             DO_IT!
  113.  
  114.  
  115.                   Menu {Tools} {More} {Add} {List} {Floppies}
  116.                   FormKey
  117.                         ENDIF
  118.      ENDSWITCH
  119. ENDWHILE
  120. ;------------------EXIT
  121. CLEAR
  122. STYLE REVERSE
  123. @ 12,24
  124. ?? "RETURNING TO PREVIOUS MENU..."
  125. RETURN
  126.